Gyakorló feladat számsorozat előállítására:

3-mal osztható számok kiírása 100-ig

program Gyakorlo1;
uses crt;
var n,a:integer;
BEGIN
   n:= ;
   a:= ;
   repeat
      write(a,' ');
      a:=a+3;
      until ;
END.

Alternáló számsorozat kiírása 100-ig

program Gyakorlo2;
uses crt;
var i,a,s,x,n:integer;
BEGIN
   i:= 1;
   a:= 1;
   s:= ;
   x:= ;
   while (i<=n) do begin
      write(a,' ');
      x:=x+;
      a:= ;
      s:=s*(-1);
      i:=i+1;
      end;
END.

Számok faktoriálisának kiírása (10 db szám)

program Gyakorlo3;
uses crt;
var i,a,n:integer;
BEGIN
   i:= ;
   a:= ;
   n:= 10;
   while (i<=n) do begin
      write(a,' ');
      a:= ;
      i:=i+;
      end;
END.